home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / redskins.bas < prev    next >
Encoding:
BASIC Source File  |  1986-05-21  |  768 b   |  18 lines
  1. 10 REM REDSKINS.BAS
  2. 12 REM HAIL TO THE REDSKINS - TRANSCRIBED BY RALPH R. RAYNER - MPCC
  3. 14 A$="T180O3L2GL4F#GL8AO4L2C.P8O3L2GL4EGL1D"
  4. 16 B$="L2GL4F#GL8AO4L2C.P8L4E.L8CL4D.L8CL2C.P4"
  5. 18 C$="O3L8AGEDEEEDEEL2E.O3L8AGEDEEEDEEL2EP8L8D"
  6. 20 D$="L4G.L8DL4A.L8DL4BO4CDO3L8BGL2EAL1G"
  7. 22 KEY OFF:CLS:COLOR 31,7:LOCATE 6,30:PRINT "HAIL TO THE REDSKINS"
  8. 24 COLOR 0,7:LOCATE 10,28:PRINT "1983 SUPER BOWL CHAMPIONS"
  9. 26 COLOR 9,0:LOCATE 14,28:PRINT "REDSKINS 27 - DOLPHINS 17"
  10. 28 COLOR 7,0:LOCATE 18,32:PRINT "JANUARY 30, 1983"
  11. 30 LOCATE 20,30:PRINT "PASADENA, CALIFORNIA"
  12. 32 PLAY "XA$;XB$;XA$;XB$;XC$;XD$;XA$;XB$;"
  13. 34 COLOR 0,0
  14. 36 Q$=INKEY$:IF Q$="" GOTO 36 ELSE COLOR 7,0:KEY ON:CLS:END
  15. NIA"
  16. 32 PLAY "XA$;XB$;XA$;XB$;XC$;XD$;XA$;XB$;"
  17. 34 COLOR 0,0
  18. 36 Q$=INKEY$